home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 18 / CU Amiga Magazine's Super CD-ROM 18 (1997)(EMAP Images)(GB)[!][issue 1998-01].iso / CUCD / Programming / AmigaE / Src / OOmodules / sort / test.e < prev   
Encoding:
Text File  |  1996-05-02  |  1.6 KB  |  48 lines
  1. MODULE 'oomodules/sort/string','oomodules/sort/address'
  2.  
  3. PROC main() HANDLE
  4.  DEF mystr:PTR TO string,hisstr:PTR TO string,
  5.      myaddr:PTR TO address
  6.  NEW mystr.new(["set",'aaaaaa'])
  7.  NEW hisstr.new(["set",'aaab'])
  8.  WriteF('mystr = «\s»\n',mystr.write())
  9.  mystr.cat('bbbbbb')
  10.  WriteF('mystr after cat = «\s»\n',mystr.write())
  11.  
  12.  WriteF('mystr = «\s»\nhisstr = «\s»\n',mystr.write(),hisstr.write())
  13.  WriteF('mystr has a length of \d.\nhisstr has a length of \d.\n',mystr.length(),hisstr.length())
  14.  
  15.  WriteF('Is mystr less than hisstr?\n')
  16.  IF mystr.lt(hisstr) THEN WriteF('Yes\n') ELSE WriteF('No\n')
  17.  
  18.  WriteF('Is mystr greater than hisstr?\n')
  19.  IF mystr.gt(hisstr) THEN WriteF('Yes\n') ELSE WriteF('No\n')
  20.  
  21.  WriteF('Is mystr less than or equal to hisstr?\n')
  22.  IF mystr.le(hisstr) THEN WriteF('Yes\n') ELSE WriteF('No\n')
  23.  WriteF('And mystr is a «\s».\n',mystr.name())
  24.  mystr.catString(hisstr)
  25.  WriteF('Concatenating the two strings yields «\s» of length \d\n',
  26.          mystr.write(),mystr.length())
  27.  WriteF('===================================================\nTesting address:\n---\n')
  28.  NEW myaddr.new(["sfnm",'Joseph',
  29.                  "slnm",'Van Riper',
  30.       "scty",'Asheville, NC',
  31.       "sstr",'19-A Dredge Ave.',
  32.       "sphn",'(704) 555-6545'])
  33.  END mystr
  34.  END hisstr
  35.  mystr := myaddr.write()
  36.  WriteF('\s---\naddress string length: \d\n',mystr.write(),mystr.length())
  37.  hisstr := mystr.left(5)
  38.  WriteF('left(5)    :«\s»\n',hisstr.write())
  39.  END hisstr
  40.  hisstr := mystr.right(5)
  41.  WriteF('right(5)   :«\s»\n',hisstr.write())
  42.  END hisstr
  43.  hisstr := mystr.middle(5,5)
  44.  WriteF('middle(5,5):«\s»\n',hisstr.write())
  45. EXCEPT
  46.  WriteF('error\n')
  47. ENDPROC
  48.